00 
O 

m 



o 

fO 




N NOIlVOnddV 



e NOiivooddv 



z NOiivonddv 



I. NOliVOIIddV 



LU 
H 
CO 

>- 

CO 

o 

h- 

2 

LU 
Q- 
O 



T 


N 


o 


Q 


O 


O 


ro 

\ 




\ 



LU 

> 
a: 

Q 
Lll 

o 
> 

LU 
Q 



CO 

g 
m 



LU 

I 

Q 

a: 
< 

X 















o 




> 


o 




Q 


O 










0) 






5 




Q. 


o 




CO 






b 




O 



01 



rO 
H 



.O 



H 



Gft/IPhmTooL 



mo 



TEmJ\i€ FILE 



I Al/Hiew+iCA+ioM i^^o(> 

I 1 



Evavit MoNi-hK 



I 



3 



J 




urn. 



•Mil 




Domain 
Site 

OU (Computer) 
(DU(User) 
Group Membership 
Primary Group 
User Name 
TGP/IP Address 
Host Address 
Computer Name 
MACAddress 
TS Application Name 
TS IhitialiProgram 
TS Client Name 
TS Session Name 
TS Client TCP/IP Addr. 



□lOeslUop ^ :^ 
□iNotelrook. , 
n TabletPC^ 
pj TermServ Client' 
Dl Mernber Server^, 
D DbmaimControlfer 



am 



O NX 
O 2000^ 

U XP 

□ 2003 



r Connection-* 
Q Dial-up 



•5ol 



5 




Drive Sef.tings 



|h J\\$HomeSetve[\$homeDii$$ 



TCP /I-P AJi/ress 



Domain 
Site 

OU (Computer) 
OU (User) 
Group Mernbership 
Primary. 6 roup 
User Name 
TGP/IP'Addiess 
Hosl Address 
Cbmputer Name 
MAC Address 
TS Application Name 
TS Initial iProgram 
TS Glieril Nahne 
TS Ses$i6n':Name 
TSCTientTCPyiPAddr. 




O HideifromiWindows^^Exploreif 
Explofei- Label:(2000iand;newef?? 



On;Error 



Contjnue 



Validation Logic 
Jype 



(!^a$s^~ 



Desktop 
^ Notebook 
gf Tablet PC 

\3\ Term Sef\ t fent 
Gi Member S^ff^ er 
GiSorpainEontfoJfer? 



li Description^ [ . 



Appfication/Suite^ 
I Office (auto^etect version) ''^H 
Option 



I Word Open/Save Fojdef 



|H:\Dociiinenr 



JM: 



io.i5o.ir 



Registry Sel:tings 



Actfon: 



Mive 



Write Value 



Tg| |HKEY^ LOC AL^MACHINE g}| - 



SoftwareMviicrosoftW/indows NT\CurrentVeision\V/inLogon 



REG.SZ 



LogonPfompt 



Data /^Expfession 



jf iEnter youi usemame and password to log onto the Way2Go Tiav l. 




View Pane 



Appllcatron Launcher 



Description II Riespee || Args 11 Cycle I Cyde Paba | Frequency || Iming^j: Hide. |' VMait | AdminiJ= VaiidaSon 



After Visible Continue- User . /GMAGCouhtihg Group' •l-/P=IHuman Res 



testapy arg._ E 



- Validation 

Type □ not; 



Value 



J Group Membership [j-^ ( J iAccounting Group Ij^f f 



Add 



Remove 



S' OR ; \0. AND' 



I Operator |l "Pype ' .Validation ^ 


1 ' - 


|IF Group 'Accounting Group 




AND NOT 


Primary Group 


IHuman Resources Group 




OR ^ 


UserOU 


RD-» 





















-Class 

Ev:Desktop> 
j3^#drt^bler^ 
E^aBletPE;; 
O J erim SerY Clients 
E!!Member:Server^ 
Domain Controller 




lOL 



FIG. 7 



Domain 
Site 

QlU.pomputerJ 

p!(Li.serj^ 
(3;rpupilvi:embefship 

(OseriName 
fPGiP/IIPAddress 
H ost Address 

jvlAE* Address 

pis Ap|lipation:Name 

jtSlnitiafiPfpgram 

|itS (ElientiName 

TSSessioniMame 

iTS ElientiTEPjdPAddr. 



m 



:.Value 



T CP/I P Address 
/r- Class- 



l Desktop 
R Notebook . 



J^j 192 168 100' 
OS— 




F mM'4^dr' Dial-up 



OK' 



;<i£ancel' 



r...,.mri..n.n«.i«i...r*i. 



FI6.S 



FIG, 9 



function slMultiCompare ($StringA, $StringB) 
; SL platforms: 4.01 ; LastRev: 2002-Aug-21 
; dependencies: slWildCompare () , slQuestionCompare () 

; compares one string to another, and supports and as a wildcards 
; stringA: constant string 
; strings : variable string 

strings can contain wildcards ' * ' and ' ? • 

strings can be an array or a single string containing multiple elements, 

each separated by a semi-colon 
dim $ArrayB, $elementB 
$slMultiCompare=0 ; default false 
if $StringA and $ Strings 
$StringA=trim ( $StringA) 

if vartype ($StringB) <8192 ; Strings is a string 

$ArrayB=split {$StringB+' ) ; remove last ; added for split to achieve at least 
one element 

redim preserve $ArrayB [uboiind ($ArrayB) -1] 
else ; Strings is an array 

$ Array B = $ S t r ingS 
endif 

for each $ Elements in $ Arrays 
$BlementS=trim { $elementB) 
select 

case $ElementB= ' * ' ; single wildcard - matches everything 

$slMultiCompare=l 

return ; true 
case $StringA=$ElementB 

$ slMul t iCompar e=l 

return ; true 
case instr($ Elements, •*' ) 

if slWildCompare ( $StringA, $ElementB) 
$slMultiCorapare=l 
return ; true 

endif 

case instr ($ElementB, ' ? ' ) 

if SlWildCompare ( $StringA, $ Elements) 
$slMulti Compare =1 
return ; true 
endif 

case 1 ; no wildcards and we've already determined that strings don't match 
; do nothing - proceed to next array element 
endselect 
next 
endif 
endf unction 

function slWildCompare {$StringA, $StringB) 

; SL platforms: 4.01 ; LastRev: 2002*Aug-21 
; dependencies : slQuestionCompare ( ) 

; Do not call this function directly use slMultiCompare () instead 
; compares one string to another, and supports wildcards 
; StringA: constant string 

; strings: variable string (can contain wildcards and '?') 

; could add case-sensitivity option in future... 

dim $LenStringA, $.lenSt rings, $QuestionLoc, $AsteriskLoc 

dim $GlobArray, $LenGAE, $lenGAEf irst , $lenGAElast, $GAUB 

$slWildCompare=0 ; default to no match 

if $StringA and $StringB 

$StringA=trira ($StringA) 

$LenStringA=len ($StringA) 

if $StringB='*' ; single wildcard - matches everything 

$ slWildCompare=l 

return ;true 
endif 

if $StringA=$ St rings ; exact match 

$ slwildCompare=l 

return ;true 
else ; not exact match 
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$CurreiitPowerProf ileValue=readvalue ( • HKCU\ Control 
Panel\PowerCfg' , ' Current Power Pol icy • ) 

$ Current Power Prof ileName=!readvalue ( 'HKCU\Control 
Panel \PowerCfg\ Power Pol icies\ ' +$Cur rent Power Pro file Value, 'Name ' ) 

select 

case instr($SiProcessorNameString, 'mobile' ) ; Mobile CPU type 
; highly confident that this is a portable computer! 
; platforms tested on: XP 

$ClientClas9Rule=' rule 1: Mobile CPU type -> portable' 
$SiComputerType- ' Portable ' 
$ClientClass= ' Port ' 
case @INWIN=1 and 

0+readvalue( 'HKLM\System\CurrentControlSet\Services\pcmcia' , 'Start ' ) =4 ; NT & PCMCIA 
kernel driver not started 

; highly confident that this is a desktop computer! 

; platforms tested on: NT, 2000, XP 

$ClientClassRule=' rule 2: PCMCIA driver not started (NT) -> desktop' 
$SiComputerType= ' Desktop' 
$ClientClass= ' Desk ' 
case ®INWIN=2 and 

' ' +readvalue( ' HKLM\System\CurrentControlSet\Control\InstalledFiles ' , 'PCCard.vxd' ) ' ; 9x 
£e PCMCIA kernel driver not started 

; highly confident that this is a desktop computer! 

; platforms tested on: 95, 98, Me 

$ClientClassRule=' rule 3: PCMCIA driver not started {9x) -> desktop' 
$SiComputerType= • Desktop • 
$ClientClass= ' Desk • 
case $OS<>'NT' and $SiBatteryState=128 ; no battery present 

; fairly confident that this is a desktop computer (it could" be a laptop with the 
battery removed) . 

; platforms tested on: 

$ClientClassRule=' rule 4: No system battery deteted -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass= 'Desk' 

case slGetServiceStartup{ 'UPS' ) = ' Automatic ' ; Built-in UPS service on 2000/XP 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule=' rule 5: built-in UPS service is automatic -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass= ' Desk ' 
case slGetServiceStartup ( ' LiebertM' ) = 'Automatic ' ; Liebert MultiLink 3 . 0 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?)" 

; platforms tested on: XP, 2000 

$ClientClassRule= ' rule 6: Liebert MultiLink UPS service is automatic -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass= ' Desk ' 

case SlGetServiceStartup ( ' APCPBEAgent • ) = 'Automatic ' ; APC PowerChute Business 

Edition 6 . 1 

; highly confident that this is a desktop computer (who'd install UPS software on 

a laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule='rule 7: APC PowerChute Business Edition UPS service is 
automatic -> desktop' 

$SiComputerType= ' Desktop ' 
$ClientClass='Desk' 

case SlGetServiceStartup (' APC UPS Service ')=' Automatic ' ; APC PowerChute Personal 
Edition 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 



$asteriskLoc=instr ( $StringB , ' * ' ) 
$questionLoc=instr ($StringB, ' ? • ) 
if not ($asteriskLoc or $questionLoc) 

return ; false: no wildcards - no reason to continue 
endif 

$lenStringB=len($St rings) 
$GlobArray=split ($StringB+ •*',•*') 
$GAUB-ubound ( $GlobArray ) - 1 

redim preserve $GlobArray [$GAUB] ; remove last * added for split to achieve at 
least one element 

; first Glob - special case test 
$lenGAEf irst=len ($GlobArray [0] ) 

if not slQuestionCompare (lef t ($StringA, $lenGAEf irst) , $GlobArray [0] ) 

return ; false 
endif 

; last Glob - special case test 
$lenGAElast=len($GlobArray [$GAUB] ) 

if not SlQuestionCompare (right ($StringA, $lenGAElast) , $GlobArray [$GAUB] ) 

return ; false 
endif 

$StringA=substr ($StringA, $lenGAEf irst+1, len ($StringA) ~$lenGAElast) ; removed final 
-1 (was failing on *abc*) 

if $GAUB<2 ; less than 2 Globs - preceeding special case tests determined result 

$slWildCompare=l 

return ; true 
endif 

for $index=l to $GAUB-1 ; process elements 2 through next- to-last 
$lenGAE=len ($GlobArray [$ index] ) 
if len{$StringA) <$lenGAE 

return ; false 
endif 

while len($StringA) and not 
slQuestionCompare (left ($StringA, $lenGAE) , $GlobArray [$ index] ) 
$StringA=substr { $StringA, 2 ) 
loop 

if not slQuestionCompare (lef t ($StringA, $lenGAE) , $GlobArray [$index] ) 

return ; false 
else 

$StringA=substr ($StringA, $lenGA£+l) 
endif 
. next 

$ s IWi IdCompar e = 1 
endif 
endif 
endf unction 

function slQuestionCompare ( $StringA, $StringB) 
; SIj platforms: 4.01 ; LastRev: 2002-Aug-21 

; Do not call this function directly -- use slMultiCompare () or slWildCompare () instead 

; compares one string to another, and supports ' ? ' as a wildcard 

; StringA - constant 

; StringB - variable 

dim $ index, $StringBchar 

$slQuestionCompare=l 

if $StringA and $StringB 

if $StringA=$StringB 

$slQuestionCompare=l ; true 

else 

$slQuestionCompare=0 ; default no match 

if not instr ($StringB, • ? • ) ; no question marks 

return ; false 
else 

; length of both strings must be same to continue 
if len ($StringA) <>len($StringB) ; different lengths 

return ; false 
endif 

; perforin comparison character -by- cliaracter 
for $index=l to len ($StringA) 

$StringBchar=substr ($StringB, $ index, 1) 

if (substr ($StringA, $index, 1) <>$StringBchar) and $StringBchar<> ' ? ' 
return ; false 



endi£ 
next 

$slQuestionCorapare=l ; true 
endif 
endif 
endif 
endf unction 
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; platforms tested on: XP, 2000 

$ClientClassRule=' rule 8; APC PowerChute Business Edition UPS service is 
automatic -> desktop' 

$SiComputerType= ' Desktop ' 

$ClientClass= • Desk ' 
case $CurrentPowerProf ileName= ' APC USB UPS' 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; **♦$$ what about other UPS brands? What about APC non-USB models? 
; platforms tested on: XP, 2000 

$ClientClassRule='rule 9: APC USB UPS power scheme -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass= ' Desk • 

case $ Curr ent Power Pro fileName=' Port able /Lap top' or $ Current Power Pro f ileName= ' Max 
Battery ' 

; somewhat confident that this is a portable computer. This setting is user 
prof ile- specif ic and can be changed 

; platforms tested on: XP, 2000 

$ClientClassRule=' rule 10: portable/ laptop or max battery power scheme -> 
portable ' 

$SiComputerType= ' Portable ' 
$ClientClass= ' Port ' 
case 1 

; At this point, here is what we know: 
; Not a mobile CPU type 

; The Portable/Laptop power scheme is not selected 
; It does have PCMCIA sockets . 

9x, 2000 & XP systems do not have a battery present 

$ClientClassRule= ' rule 11: default -> portable' 
$SiComputerType= ' Portable ' 
$ClientClass= • Port ' 
endselect 



